﻿Imports Microsoft.VisualStudio.TemplateWizard

Public Class Form1

    Private Sub TestForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestForm.Click
        Try
            Dim theWizard As IWizard = New DotNetNukeMVPWizard.IWizardImplementation()
            Dim theDictionary As Dictionary(Of String, String) = New Dictionary(Of String, String)
            theDictionary.Add("$projectname$", "Sample Project")
            theDictionary.Add("$safeprojectname$", "Sample_Project")
            theWizard.RunStarted(Nothing, theDictionary, WizardRunKind.AsMultiProject, Nothing)

            TestResults.Text = "Wizard completed: " + vbCrLf
            For Each item As KeyValuePair(Of String, String) In theDictionary
                TestResults.Text += String.Format("{0} = {1}{2}", item.Key, item.Value, vbCrLf)
            Next
        Catch ex As Exception
            TestResults.Text = ex.Message
        End Try
    End Sub
End Class
